home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
422mods.zip
/
KNNET2.422
< prev
next >
Wrap
Text File
|
1993-02-20
|
2KB
|
39 lines
Know the network your in! (Look at me)
Pretty Boy Floyd #2 @12455
Wed Feb 17 01:29:29 1993
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
MOD : KNNET2.MOD - Know Network v2
AUTHOR : Pretty Boy Floyd
BBS : Tech Know Byte (214) 724-8324
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
I wrote this is make it easier for SysOp and Users of Multi-Networked
BBS to know what network they are in, weather it be WWIVnet, WWIVlink,
ICEnet, FIREnet, etc. At the end of each message right about the
READ prompt it will say "NETWORK : (and the network you are on)"
-= Load MSGBASE1.C -=
void scan /* search */
case 0: /* search */
nl(); /* add */
npr("2Network : 3"); /* add */
for (i=0; i<xsubs[curlsub].num_nets; i++) { /* add */
if (i) /* add */
outstr(" "); /* add */
outstr(net_networks[xsubs[curlsub].nets[i].net_num].name); /* add */
} /* add */
outstr("\r"); /* add */
sprintf(s,"%s:(1-%u,^%u), ? : ",get_string(678),nummsgs,msgnum);
nl():
The last two are orginal code
Save and compile. On all local subs it will print "Network : "
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Copyright (c) 1993, Pretty Boy Floyd
Copyright (c) 1993, Floyd Publishing Co
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-